home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1984 Half 1
/
rerun-1984-01-06-side-b.d64
/
baha module
(
.txt
)
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
58 lines
1 goto500
85 pokev-22,19:pokev+k-22,10:pokev,21:pokev+k,0:v=v+22:pokesn,200:c=1
86 ifv=7904thenprintf$;"[145]aaaa":goto300
87 return
110 forq=1to4:poke7924,21+q
115 forw=1to230
120 poke646,9:printd$;mid$(b$(q),w,22)
122 poke38622,wc:poke38624,wc
125 ifca<26thenprintd$;"[145]";mid$(ca$,ca,23):goto130
127 ifpeek(7920)=0thenca=1
130 print""spc(x+22)"anoa":pokesn,200
160 ifdthenprintf$;"[145]fghi":print"[144]aakak":wc=9:d=d-1:b=1:goto180
165 ifbthenprintf$;"[145]aaaa":wc=8:b=0
170 printf$;"fghi":ifpeek(197)=32thend=6
175 ifpeek(7904)=1goto300
177 ifpeek(7883)=10thengosub250
180 readx:ifx=77thenprintchr$(19)spc(20)"aaa":restore:goto180
182 print""spc(x+22)"almaa"
185 ifx=3thenifpeek(36878)=26thengosub85:goto189
188 pokesn,0:ifcthenpokesv,26:pokev-22,19:pokev+k-22,10:v=7750:c=0
189 ifpeek(197)=63thenifd=0thenpokesv,42:c=1:ifx=3thenreadx:goto189
190 ca=ca+1
199 next:next
200 print"[147]":poke36869,240:poke36867,peek(36867)and254
210 print"congratulations":end
250 fori=16to31step.3:pokesv,i:pokesn,249
254 fori=16to31step.3:pokesv,i:pokesn,249
260 ifi>24thenpoke7860,20:poke7860+k,0
280 fort=1to40:next
285 next:fort=1to2000:next
295 poke7860,1:pokesn,0:pokesv,26:return
300 pokesv,31:pokesn,200
305 pokesv,31:pokesn,200
310 printf$;"afghi"
311 poke38622,9
320 fort=1to200:next
330 fors=31to16step-1
332 pokesv,s:poke36876,0:poke36877,135
340 printf$;"aaaaaa[157][157][157]apqr[145][157][144]t"
360 fort=1to100:next
370 next:poke36877,0:run
480 data19,19,18,18,17,17,16,16,15,15,14,14,13,13,12,12,11,10,10
481 data9,9,8,8,7,7,6,6,5,5,4,4,3,3,3,3,3,3,3,3,3,2,1,0,-1,-2,77
500 poke36869,255:poke36867,peek(36867)or1:poke36879,31
510 k=30720
580 a1$="ccdedcbcdedcbde@edcde@edbddcbcdedaaaadcbcbcdedbdede@ecbcbccbcdc"
582 a2$="ccdedcbcdedcbde@edcdcbaaaadcbcdededede@eddcdedcbcdedcbde@edcded"
583 a3$="ccaaaabcde@edde@edcdcbaaaadcbcdedededaaaabcdedbde@ececbcbccbcdc"
585 b$(1)=a1$+a2$+a1$+a2$:b$(2)=a1$+a2$+a1$+a2$
586 b$(3)=a1$+a2$+a3$+a2$:b$(4)=a1$+a3$+a2$+a3$
590 d$="":f$=left$(d$,10)+""
592 ca$="ajaa"
594 s$="@@@@@@@@@@@@@@@@@@@@@@"
595 poke646,10:print"[147]";d$;s$;s$;s$:wc=8:ca=26:x=19:v=7728:sv=36878:sn=36877
597 print"":fori=1to8:print"aaaas":next:pokesv,26
598 printf$;"fghi"
599 goto110